home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / interface_376_CompleteButton behave (bluePrintSubdivision).ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  1.1 KB  |  41 lines
  1. property mySprite, myType, myName, myNameDown, myNameOver, myNameInactive, Active, ancestor
  2.  
  3. on beginSprite me
  4.   global gActorListMan
  5.   mySprite = me.spriteNum
  6.   myName = (the member of sprite mySprite).name
  7.   myNameDown = word 1 of myName && "down"
  8.   myNameOver = word 1 of myName && "over"
  9.   myNameInactive = word 1 of myName && "Inactive"
  10.   Active = 1
  11.   lookForToolTip = 1
  12.   ancestor = new(script("FourStatebuttonActions"), lookForToolTip)
  13.   myType = #completeButton
  14.   registerSprite(gActorListMan, mySprite)
  15. end
  16.  
  17. on mouseUp me
  18.   global gClickSprite, gIso, gCursorMan, gUserDataMan, gPromptMan
  19.   if not Active then
  20.     exit
  21.   end if
  22.   if gClickSprite = mySprite then
  23.     doButtonUpClick(myType, 1)
  24.     outPut("completeButton Clicked")
  25.     problemList = evaluateFloorPlan()
  26.     if not count(problemList) then
  27.       put "whoopie we made it past blueprint subdivion"
  28.       setFloorPlanComplete(gUserDataMan)
  29.       go("transToCons")
  30.     else
  31.       put problemList
  32.       doSubdivisionProblemsPrompt(gPromptMan, problemList)
  33.     end if
  34.   end if
  35. end
  36.  
  37. on endSprite me
  38.   global gActorListMan
  39.   unRegisterSprite(gActorListMan, mySprite)
  40. end
  41.